CREATE OR REPLACE PACKAGE BODY pkg_db_link_tester
IS

  FUNCTION f_is_db_link_up
    ( link_name IN VARCHAR2 )
  RETURN BOOLEAN
  IS
  BEGIN
    
    EXECUTE IMMEDIATE 'SELECT * FROM DUAL@'||link_name;
    RETURN TRUE;
  
  EXCEPTION
    WHEN OTHERS THEN
      RETURN FALSE;
  END f_is_db_link_up;
  
END pkg_db_link_tester;
